﻿<!-- #include file="mymin.asp" -->
<title>修改会员积分</title></head><body><div class='main400'>
<%

dim id,rs,money,point,expr,msg
id=getN("id",1)
If getData("a")<>"1" Then
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open"select id from 74hu_user where id="&id,myconn,1,1
	If Not rs.eof	Then
		w "<form method='post' action='points.asp?sid="&sid&"&amp;a=1&amp;id="&id&"'><table>"&_
			"<tr><td>"&bbsMoney&":<input name=""money"" value=""0""/></td></tr>"&_
			"<tr><td>"&bbsPoint&":<input name=""point"" value=""0""/></td></tr>"&_
			"<tr><td>经验:<input name=""expr"" value=""0""/></td></tr>"&_
			"<tr><td>理由:<input name=""reason"" value=""""/></td></tr>"&_
			"<tr><td colspan='2'><input type=""submit"" value=""保存修改""/></td></tr></table></form>"&_
			"温馨提示:<br/>"&_
			"1、"&bbsMoney&","&bbsPoint&",经验填写增加或减少的数额,如10或-10<br/>"&_
			"2、理由不能为空，系统会发送该理由的积分修改信息<br/>"&_
			"<a href=""detail.asp?sid="&sid&"&amp;id="&id&""">返回管理</a><br/>"
	Else
		w "没有这个会员！<br/>"
	End If
	rs.close
	set rs=nothing
Else
	reason=getD("reason","")
	If reason="" Then Call error2("理由不能为空")
	money=getN("money",0)
	point=getN("point",0)
	expr=getN("expr",0)
	If money=0 And point=0 And expr=0 Then Call error2(bbsMoney&","&bbsPoint&",经验不能填写空值")
	If money>=0 Then money="+"&money
	If point>=0 Then point="+"&point
	If expr>=0 Then expr="+"&expr
	Call sendMsgToUser(id,reason&"，结果:"&bbsMoney&""&money&" "&bbsPoint&point&" 经验"&expr)
	myconn.Execute("update 74hu_user set [money]=[money]"&money&",[points]=[points]"&point&",[experience]=[experience]"&expr&" where id="&id)
	w "修改成功!<br/>"&_
	"<a href=""detail.asp?sid="&sid&"&amp;id="&id&""">返回管理</a><br/>"

End If
w "----------<br/><a href=""member.asp?sid="&sid&"&amp;"">[会员总管]</a>"

call bbsLast
%>